/* Program to load a numbered series of pictures (usually animation frames) onto an existing page. New pages are also created as in AutoImport. The box contents are hidden because showing a large number of bitmaps can exhaust chip memory; also, hiding the images greatly speeds up loading.
Written by Don Cox, 1993. Not Public Domain. All rights reserved. */
trace n
call SafeEndEdit.rexx()
call ppm_AutoUpdate(0)
oldunits = ppm_GetUnits()
call ppm_SetUnits(2)
oldpoints = ppm_GetSize()
call ppm_SetSize(12)
address command
currentpage = ppm_CurrentPage()
if currentpage = 0 then currentpage = ppm_CreatePage(1,1,1,0,0)
psize = ppm_GetPageSize(currentpage)
pwidth = word(psize,1)
if pwidth<5 then exit_msg("Page too small")
pheight = word(psize,2)
filename = ppm_GetFileName("Select First File of Sequence:", "PPage:", "")
if filename = '' then exit_msg("No File Selected")
form = "Frames per Row (1-20):4"||"0a"x "Frame Interval:1"||"0a"x "Outline Width (mm):1"
form = ppm_GetForm("Set Layout",5,form)
if form = "" then exit_msg("User Aborted Import")
parse var form rownumber "0a"x interval "0a"x linewidth
if rownumber<1 | rownumber>20 then exit_msg("Invalid Row number: "rownumber)
if interval<1 then Exit_msg("Invalid Interval: "interval)
colgap = 0.5
rowgap = 1.5
pagemargin = 1.5
pagemargin2 = pagemargin * 2
collist = ppm_GetColorList()
collist = substr(collist, pos('0a'x, collist) +1) /* strip off initial line which is number of colours */